home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / SHARED.DIR / 01954_Script_SliderHot Spots < prev    next >
Text File  |  1995-09-13  |  2KB  |  110 lines
  1. global gOpenHouse1, gOpenHouse2
  2.  
  3. On ESliderRollovers
  4.   if (testEgyptCursor()) then
  5.     EgyptCursor
  6.   else
  7.     if rollover(46) then
  8.       EgyptCursor
  9.     else
  10.       if rollover(2) or rollover(4) then 
  11.         if gOpenHouse1 = 1 then
  12.           ArrowCursor
  13.         else
  14.           EgyptCursor
  15.         end if
  16.       else
  17.         if rollover(3) then 
  18.           if gOpenHouse2 = 1 then
  19.             ArrowCursor
  20.           else
  21.             EgyptCursor
  22.           end if
  23.         else
  24.           ArrowCursor
  25.         end if
  26.       end if
  27.     end if
  28.   end if
  29. end
  30.  
  31.  
  32. on testEgyptCursor
  33.   set count = 5
  34.   set isEgypt = FALSE
  35.   repeat while (isEgypt = FALSE and count < 27) 
  36.     set count = count + 1
  37.     if rollover(count) then 
  38.       set isEgypt = TRUE
  39.     end if
  40.   end repeat
  41.   return isEgypt
  42. end
  43.  
  44. On VSliderRollovers
  45.   if (testVikingCursor()) then
  46.     VikingCursor
  47.   else
  48.     if rollover(2) then 
  49.       if gOpenHouse1 = 1 then
  50.         ArrowCursor
  51.       else
  52.         VikingCursor
  53.       end if
  54.     else
  55.       if rollover(3) then 
  56.         if gOpenHouse2 = 1 then
  57.           ArrowCursor
  58.         else
  59.           VikingCursor
  60.         end if
  61.       else
  62.         ArrowCursor
  63.       end if
  64.     end if
  65.   end if
  66. end
  67.  
  68.  
  69. On ASliderRollovers
  70.   if (testAztecCursor()) then
  71.     AztecCursor
  72.   else
  73.     if rollover(2) then
  74.       if gOpenHouse1 = 1 then
  75.         ArrowCursor
  76.       else
  77.         AztecCursor
  78.       end if
  79.     else
  80.       ArrowCursor
  81.     end if
  82.   end if
  83. end
  84.  
  85.  
  86. on testAztecCursor
  87.   set count = 3
  88.   set isAztec = FALSE
  89.   repeat while (isAztec = FALSE and count < 24) 
  90.     set count = count + 1
  91.     if rollover(count) then 
  92.       set isAztec = TRUE
  93.     end if
  94.   end repeat
  95.   return isAztec
  96. end
  97.  
  98.  
  99. on testVikingCursor
  100.   set count = 4
  101.   set isViking = FALSE
  102.   repeat while (isViking = FALSE and count < 27) 
  103.     set count = count + 1
  104.     if rollover(count) then 
  105.       set isViking = TRUE
  106.     end if
  107.   end repeat
  108.   return isViking
  109. end
  110.